home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / icon / packages.lha / packages / atari / ats.arc / TESTS.ARC / IO.ICN < prev    next >
Text File  |  1990-03-28  |  2KB  |  43 lines
  1. record array(a,b,c,d,e,f,g)
  2.  
  3. procedure p1()
  4.    write(" ----> ",image() | "none")
  5.    write("f := open(\"foo.baz\",\"w\") ----> ",image(f := open("foo.baz","w")) | "none")
  6.    write("write(f,\"hello world\") ----> ",image(write(f,"hello world")) | "none")
  7.    write("close(f) ----> ",image(close(f)) | "none")
  8.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  9.    write("every write(reverse(!F)) ----> ",image(every write(reverse(!F))) | "none")
  10.    write("close(F) ----> ",image(close(F)) | "none")
  11.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  12.    write("every write(map(!F)) ----> ",image(every write(map(!F))) | "none")
  13.    write("close(F) ----> ",image(close(F)) | "none")
  14.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  15. end
  16.  
  17. procedure p2()
  18.    write("every write(map(!F,&cset || \"aeiou\",&cset || \"-----\")) ----> ",image(every write(map(!F,&cset || "aeiou",&cset || "-----"))) | "none")
  19.    write("close(F) ----> ",image(close(F)) | "none")
  20.    write("F := open(\"io.icn\") ----> ",image(F := open("io.icn")) | "none")
  21.    write("every write(map(!F,&cset || \"     \",&cset || \"aeiou\")) ----> ",image(every write(map(!F,&cset || "     ",&cset || "aeiou"))) | "none")
  22.    write("close(F) ----> ",image(close(F)) | "none")
  23.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  24.    write("while writes(reads(f)) ----> ",image(while writes(reads(f))) | "none")
  25.    write("close(f) ----> ",image(close(f)) | "none")
  26.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  27.    write("while writes(reads(f,10)) ----> ",image(while writes(reads(f,10))) | "none")
  28.    write("f := open(\"io.icn\") ----> ",image(f := open("io.icn")) | "none")
  29. end
  30.  
  31. procedure p3()
  32.    write("while write(read(f)) ----> ",image(while write(read(f))) | "none")
  33.    write("close(f) ----> ",image(close(f)) | "none")
  34. end
  35.  
  36. procedure main()
  37.    p1()
  38.    p2()
  39.    p3()
  40. end
  41.  
  42. global F, f
  43.